(tar-get-descriptor): No error for zero-length file.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a18a61fe29b3731a503e6cea654cc0aa6a3c26ec..938cbdb9a002aa1dd6b556ef09aad9adcd237e8c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-07-15  Aaron Hawley  <aaronh@garden.org>
+
+       * tar-mode.el (tar-get-descriptor): No error for zero-length file.
+
 2007-07-15  Martin Rudalics  <rudalics@gmx.at>
 
        * mouse.el (mouse-drag-track): Reset transient-mark-mode to nil

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index f222c23fbf02d413c4642f00db5145cb260ed077..684396f1692691e4c0182dd06eb725c9334a7221 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -667,7 +667,7 @@ appear on disk when you save the tar-file's buffer."
                     ((eq link-p 38) "a volume header")
                     ((eq link-p 55) "an extended pax header")
                     (t "a link"))))
-    (if (zerop size) (error "This is a zero-length file"))
+    (if (zerop size) (message "This is a zero-length file"))
     descriptor))
 
 (defun tar-mouse-extract (event)